home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / PASCAL / 1463.ZIP / DRAW-2D.ARC / ZOOMOUT.PAS < prev   
Pascal/Delphi Source File  |  1986-11-29  |  280b  |  9 lines
  1. PROCEDURE ZOOMOUT;
  2.    BEGIN
  3.           GRWORLD(0.0,0.0,XWORLD,XWORLD*ASPECT);
  4.           M1 := 2;
  5.           MOUSE(M1,M2,M3,M4);          (* HIDE MOUSE *)
  6.           REDRAW;
  7.           M1 := 1;                     (* SHOW MOUSE *)
  8.           MOUSE(M1,M2,M3,M4);
  9.   END; (*PROC*)